10 POKE808,234
20 PRINTCHR$(14):PRINTCHR$(8):PRINT"[147]":POKE53280,11:POKE53281,11
30 PRINTTAB(8)"[158]** [208]RESS [210]ETURN **"
40 INPUT"[145][145][145][145][197]NTER [198]ILE [206]AME";R$:R$=LEFT$(R$,10)
50 X=96:R=2*X
60 DIMD$(R),I$(R),D(R),C(R),B(R),U(R),H(R):N=0
70 INPUT"[201]F [197]STABLISHING [206]EW [198]ILE,[201]NSERT (*)";Y$
80 POKE53280,6:POKE53281,15
90 IFY$="*"THEN110
100 IFY$=""THENGOSUB990
110 POKE650,0:POKE53280,6
120 POKE53281,15
130 PRINT"[147][151][194]ALANCE [211]HEET[146]"
140 PRINT"[198]1 [198]ORWARD [211]CAN   [151]_ [210]EVERSE [211]CAN"
150 PRINT"[151][198]4 [197]NTER [201]NFORMATION"
160 PRINT"[151][198]5 [194]ALANCE [211]HEET"
170 PRINT"[151][198]6 [204]AST [208]AGE"
180 PRINT"[151]=  [212]OTAL [196]EBITS/[195]REDITS"
190 PRINT"[151]*  [211]ELECT [206]EW [198]ILE"
200 PRINT"[151]^  [210]ENAME [198]ILE"
210 PRINT"[151]%  [210]E-[197]STABLISH [198]ILE"
220 PRINT"[151][211]  [211]AVE"
230 PRINT"[151][195]  [195]HRONOLOGICAL [211]ORT"
240 PRINT"[151][208]  [208]RINT"
250 PRINT"[151]+  [197]XIT"
260 GOSUB420
270 GETA$:IFA$=""THEN270
280 IFA$="[133]"THENAB=1:GOTO730
290 IFA$="_"THENAB=N:GOTO730
300 IFA$="[138]"THEN480
310 IFA$="S"THENGOSUB1090
320 IFA$="[139]"THEN1820
330 IFA$="[135]"THEN1500
340 IFA$="="THEN1900
350 IFA$="*"THEN CLR:GOTO20
360 IFA$="^"THEN2070
370 IFA$="C"THENGOSUB2170
380 IFA$="%"THEN2260
390 IFA$="P"THENGOSUB2620
400 IFA$="+"THEN9999
410 GOTO110
420 PRINT"[151]----------------------------------------"
430 PRINT"[198]ILE:[156] ";R$
440 PRINTTAB(21)"[151][145][197]NTRIES:[156]";N
450 PRINT"[151][194]ALANCE:[156]";B(N)
460 IFD$(N)>"A"THEND$(N)="--"
470 PRINTTAB(21)"[151][145][204]AST [196]ATE: [156]";D$(N):RETURN
480 POKE53280,6:IFN=X-1THEN720
490 PRINT"[147][151][196]ATA[160][197]NTRY"
500 N=N+1:PRINT"[147][197]NTER [201]NFORMATION[146]"
510 PRINT"[197]NTRY[160]#";N
520 PRINT"[196]ATE  ";D$(N-1)
530 PRINT"[201]TEM":PRINT"[196]EBIT":PRINT"[195]REDIT":B(N)=D(N)+C(N):B(N)=B(N)+B(N-1)
540 PRINT"[194]ALANCE [201]S: ";B(N):PRINT""
550 INPUT"";D$(N):IFD$(N)>="A"ORD$(N)=""THEND$(N)="--"
560 D$(N)=LEFT$(D$(N),6)
570 INPUT"";I$(N):IFI$(N)=""THENI$(N)="--"
580 I$(N)=LEFT$(I$(N),28)
590 INPUT"";D(N):D(N)=-D(N)
600 INPUT"";C(N)
610 B(N)=D(N)+C(N):B(N)=B(N)+B(N-1):B(N)=INT(B(N)/0.01+0.5)*0.01
620 PRINT"[194]ALANCE [201]S:[155]               "
630 PRINT"[145][194]ALANCE [201]S: ";B(N)
640 PRINTTAB(9)"[151][193]NOTHER [197]NTRY?[146] [217]/[206]"
650 PRINTTAB(9)"[151][193]BORT[146] [193] [151][210]E-[197]NTER[146] [210][151]"
660 GETA$:IFA$<>"Y"ANDA$<>"N"ANDA$<>"R"ANDA$<>"A"THEN660
670 IFA$="N"THEN110
680 IFA$="R"THENM=N:GOSUB1480
690 IFA$="A"THENM=N:GOSUB1480:GOTO110
700 IFN=X-1THEN720
710 GOTO500
720 PRINT"[147]":PRINTTAB(15)"[151][198][201][204][197][160][198][213][204][204]":FORZZ=1TO2000:NEXT:GOTO110
730 POKE53280,6:IFN=0THEN110
740 FORM=ABTON
750 POKE650,128:GOSUB900
760 PRINT"[151][198]1[146] [198]ORWARD [211]CAN  _[146] [210]EVERSE [211]CAN"
770 IFM>NTHEN110
780 PRINT"[198]5[146] [194]ALANCE [211]HEET"
790 PRINT"[198]7[146] [210]ETURN TO [205]AIN [205]ENU"
800 PRINT"[198]2[146] [205]AKE A [195]HANGE"
810 PRINT"[198]8[146] [197]RASE THIS [197]NTRY"
820 GETA$:IFA$=""THEN820
830 IFA$="_"THENM=M-2:IFM<0THEN110
840 IFA$="[135]"THENPOKE650,0:GOTO1500
850 IFA$="[139]"THENPOKE650,0:GOTO1820
860 IFA$="[136]"THEN110
870 IFA$="[137]"THENGOSUB1240
880 IFA$="[140]"THENGOSUB1420:A=M:GOSUB1840:M=A
890 NEXT:GOTO110
900 IFM>NTHENRETURN
910 PRINT"[147][151][197]NTRY #";M
920 PRINT"[196]ATE:     ";D$(M)
930 PRINT"[201]TEM:     ";I$(M)
940 PRINT"[196]EBIT:   ";D(M)
950 PRINT"[195]REDIT:  ";C(M)
960 GOSUB2940
970 PRINT"[194]ALANCE: ";B(M)
980 PRINT"[151]----------------------------------------":RETURN
990 PRINT"[147][151][204]OADING[156]";R$
1000 OPEN15,8,3,"0:"+R$+",SEQ"
1010 INPUT#15,N
1020 FORM=1TON
1030 INPUT#15,D$(M)
1040 INPUT#15,I$(M)
1050 INPUT#15,D(M)
1060 INPUT#15,C(M)
1070 INPUT#15,B(M)
1080 NEXT:CLOSE15:RETURN
1090 IFN=0THENRETURN
1100 PRINT"[147][151][217]OU SELECTED [211]AVE. [193]RE YOU SURE?"
1110 PRINTTAB(16)"[217]/[206]"
1120 GETA$:IFA$<>"Y"ANDA$<>"N"THEN1120
1130 IFA$="N"THENRETURN
1140 PRINT"[147][151][211]AVING[156]";R$
1150 OPEN15,8,4,"@0:"+R$+",S,W"
1160 PRINT#15,N
1170 FORM=1TON
1180 PRINT#15,D$(M)
1190 PRINT#15,I$(M)
1200 PRINT#15,D(M)
1210 PRINT#15,C(M)
1220 PRINT#15,B(M)
1230 NEXT:CLOSE15:RETURN
1240 POKE650,0:IFN=0THENRETURN
1250 GOSUB900:PRINTTAB(12)"[156]** [195]HANGE **[151]"
1260 PRINT"1-[196]ATE","2-[201]TEM","3-[196]EBIT","4-[195]REDIT"
1270 PRINTTAB(9)"[156][197]NTER (1,2,3, OR 4)[151]"
1280 FORZZ=1TO400:NEXT
1290 GETA$:IFA$=""THEN1350
1300 IFA$="1"THENGOSUB1370
1310 IFA$="2"THENGOSUB1380
1320 IFA$="3"THENGOSUB1390
1330 IFA$="4"THENGOSUB1410
1340 RETURN
1350 PRINT"[145][145]                            "
1360 FORZZ=1TO75:NEXT:PRINT"[145][145][145][145]":GOTO1270
1370 JJ$="--":PRINT:INPUT"[206]EW [196]ATE";JJ$:D$(M)=JJ$:M=M-1:RETURN
1380 JJ$="--":PRINT:INPUT"[206]EW [201]NFORMATION";JJ$:I$(M)=JJ$:M=M-1:RETURN
1390 JJ=0:PRINT:INPUT"[206]EW [196]EBIT (POS.ONLY)";JJ:D(M)=-JJ:M=M-1:A=M:GOSUB1840
1400 M=A:RETURN
1410 JJ=0:PRINT:INPUT"[206]EW [195]REDIT";JJ:C(M)=JJ:M=M-1:A=M:GOSUB1840:M=A:RETURN
1420 IFN=0THENRETURN
1430 PRINT"[147][151][193]RE YOU SURE YOU WANT TO ERASE THIS?"
1440 PRINTTAB(18)"[217]/[206]"
1450 GETA$:IFA$<>"N"ANDA$<>"Y"THEN1450
1460 IFA$="N"THENM=M-1:RETURN
1470 PRINT"[147][151][213]PDATING[160][198]ILE"
1480 FORV=MTON:D$(V)=D$(V+1):I$(V)=I$(V+1):D(V)=D(V+1):C(V)=C(V+1):NEXT
1490 N=N-1:M=M-1:RETURN
1500 IFN=0THEN110
1510 GOSUB1860:XX=1:YY=19
1520 IFYY>NTHENYY=N
1530 FORM=XXTOYY:IFM>X-1THEN110
1540 PRINT"[151]";M:PRINT"[145]"D$(M)
1550 D(M)=-D(M):IFD(M)=0THEN1800
1560 PRINTTAB(10)"[145]"D(M)
1570 D(M)=-D(M):IFC(M)=0THEN1810
1580 PRINTTAB(19)"[145][151]"C(M)
1590 IFD(M)=0ANDC(M)=0THEN1780
1600 PRINTTAB(29)"[145]"B(M)
1610 NEXT
1620 GETA$:IFA$="[135]"THEN1710
1630 IFA$="[136]"THEN110
1640 IFA$="[139]"THEN1820
1650 IFA$="R"THENGOTO1750
1660 IFA$="[133]"THENAB=1:GOTO730
1670 IFA$="_"THENAB=N:GOTO730
1680 IFA$="[138]"THEN480
1690 IFA$="="THEN1900
1700 GOTO1620
1710 XX=XX+19:YY=YY+19
1720 GOSUB1860:IFXX>=X-1THEN110
1730 IFYY-19>=NTHEN110
1740 GOTO1520
1750 INPUT"[151]MATCH WHICH ITEM NUMBER";K
1760 IFK<1THEN110
1770 PRINT"[147]":POKE53280,6:FORM=KTON:GOTO750
1780 IFM<=NTHENPRINTTAB(29)"[145]"B(M)
1790 PRINTTAB(31)"[145]":GOTO1610
1800 PRINTTAB(11)"[145]":GOTO1570
1810 PRINTTAB(21)"[145]":GOTO1590
1820 PRINT"[147]":POKE53280,9:IFN<19THEN1500
1830 XX=N-13:YY=N+5:GOTO1720
1840 PRINT"[147][151][213]PDATING[160][194]ALANCE"
1850 FORM=1TON:GOSUB2940:NEXT:RETURN
1860 PRINT"[147]":POKE53280,9:POKE53281,15
1870 PRINT"[195]ONTINUE-([198]5)   [210]EAD-([210])   [205]ENU-([198]7)"
1880 PRINT"[156][196][193][212][197][196][197][194][201][212][195][210][197][196][201][212][194][193][204][193][206][195][197]"
1890 RETURN
1900 POKE53280,6:IFN=0THEN110
1910 PRINT"[147][151][196]EBITS/[195]REDITS[146]"
1920 PRINT"":GOSUB420
1930 PRINT"":FORM=1TON:U(M)=C(M)+0
1940 PRINTTAB(8)"[151][145][212]OTAL [195]REDITS[160]ARE:"
1950 PRINT"[145]"M
1960 U(M)=U(M)+U(M-1):NEXT
1970 PRINTTAB(27)"[145]";U(N)
1980 PRINT"":FORM=1TON:U(M)=D(M)+0
1990 FORM=1TON:U(M)=D(M)+0:U(M)=D(M)+0
2000 PRINTTAB(8)"[151][145][212]OTAL [196]EBITS ARE:"
2010 PRINT"[145]"M
2020 U(M)=U(M)+U(M-1):NEXT
2030 PRINTTAB(27)"[145]";U(N)
2040 PRINT"[208][210][197][211][211] [193][206][217][160][203][197][217][160][212][207][160][210][197][212][213][210][206] [212][207][160][205][197][206][213]         "
2050 GETA$:IFA$=""THEN2050
2060 GOTO110
2070 PRINT"[147][151][193]RE YOU SURE YOU WANT TO [210]ENAME"
2080 PRINTTAB(13)"THIS FILE?":PRINTTAB(17)"[217]/[206]"
2090 GETA$:IFA$<>"Y"ANDA$<>"N"THEN2090
2100 IFA$="N"THEN110
2110 INPUT"[151][197]NTER [206]EW [198]ILE [206]AME[156]";V$
2120 V$=LEFT$(V$,10)
2130 PRINT"[147][151][196]O YOU WANT THIS EXECUTED ON DISK? [217]/[206]"
2140 GETA$:IFA$<>"Y"ANDA$<>"N"THEN2140
2150 IFA$="N"THENR$=V$:GOTO110
2160 OPEN15,8,15:PRINT#15,"R0:"+V$"="+R$"":R$=V$:CLOSE15:GOTO130
2170 IFN<=1THENRETURN
2180 PRINT"[147][151][208]LACING [201]TEMS IN ORDER BY [196]ATE"
2190 PRINTTAB(12)""
2200 EX=0:FORQ=1TON-1:POKE53280,5:IFD$(Q)>D$(Q+1)THEN2230
2210 NEXT:IFEX<>0THEN2200
2220 GOSUB1840:RETURN
2230 G$=D$(Q):H$=I$(Q):J=D(Q):T=C(Q)
2240 D$(Q)=D$(Q+1):I$(Q)=I$(Q+1):D(Q)=D(Q+1):C(Q)=C(Q+1):POKE53280,14
2250 D$(Q+1)=G$:I$(Q+1)=H$:D(Q+1)=J:C(Q+1)=T:EX=1:GOTO2210
2260 IFN<5THEN110
2270 PRINT"[147][151][210]E-[197]STABLISH [198]ILE[146]"
2280 PRINTTAB(12)"[193] [151][193]BORT"
2290 PRINTTAB(12)"[208] [151][208]RESERVE OLD [198]ILE"
2300 PRINTTAB(12)"[197] [151][197]RASE OLD [198]ILE"
2310 GETA$:IFA$=""THEN2310
2320 IFA$="A"THEN110
2330 IFA$="P"THEN2540
2340 IFA$="E"THEN2360
2350 GOTO2310
2360 GOSUB2580
2370 PRINT"[147][151][210]E-[197]STABLISH [198]ILE[146]"
2380 PRINT"[151][195]URRENT [206]O. OF [197]NTRIES:[156] ";N
2390 PRINTTAB(7)"[151]( [205]IN: 0 ";"[205]AX:";N-5;")"
2400 INPUT"[145][145][145][151][200]OW [205]ANY [197]NTRIES [208]RESERVED[156] ";GG
2410 PRINTTAB(10)"[151][197]RASING [197]NTRY:[146]"
2420 IFGG>N-5ORGG<0THEN2260
2430 BB=B(N-GG)
2440 FORM=1TON
2450 D$(M)=D$(M+(N-GG)):I$(M)=I$(M+(N-GG))
2460 D(M)=D(M+(N-GG)):C(M)=C(M+(N-GG)):B(M)=B(M+(N-GG))
2470 IFM>N-GGTHEN2490
2480 PRINTTAB(25)"[145][156]";M
2490 NEXT
2500 N=GG+1:IFGG=0THENB(N)=BB
2510 IFBB<0THEND(N)=BB
2520 IFBB>=0THENC(N)=BB
2530 D$(N)="******":I$(N)="[194]ALANCE [198]ORWARD":GOSUB2170:GOSUB1140:GOTO110
2540 GOSUB2580:V$=R$
2550 INPUT"[147][197]NTER [206]EW [206]AME FOR OLD [198]ILE";R$
2560 R$=LEFT$(R$,10)
2570 GOSUB1140:R$=V$:GOTO2370
2580 PRINT"[147][208]RINT THE OLD [198]ILE ? [217]/[206]
2590 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]2590
2600 [139]A$[178]"Y"[167][141]2620
2610 [142]
2620 [139]N[178]0[167][142]
2630 [153]"LOADPOKE(null)RINTWAIT"
2640 [153][163]14)"LEN  POKELENONTINUE"
2650 [153][163]14)"ATN  POKEATNBORT"
2660 [161]A$:[139]A$[178]""[167]2660
2670 [139]A$[179][177]"C"[167][142]
2680 [153]"LOAD(null)RESS (null)VAL(null)(null)(null)(null) FOR A ASCULL (null)RINT"
2690 [133]"ONONONON(null)RINT ASCROM (null)HAT STR$ATE ";SD$
2700 [159]4,4,7:[153]"(null)AGING (null)N ?  (null)/(null)"
2710 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]2710
2720 [139]A$[178]"N"[167]SP[178]0.5:[137]2740
2730 SP[178]5
2740 [153]"LOAD":[153][163]9)"(null)RINTING, (null)LEASECLOSE(null)AIT"
2750 [152]4,[199](16)"27";"ASCRIGHT$(null)VAL(null)ATN(null)VAL: ";R$
2760 [152]4,[199](10)
2770 [152]4,[199](16)"00";"STR$ATN(null)VAL";[199](16)"10";"RIGHT$(null)VAL(null)";[199](16)"46";"STR$VALPEEKRIGHT$(null)";
2780 [152]4,[199](16)"58";"LEN(null)VALSTR$RIGHT$(null)";[199](16)"70";"PEEKATN(null)ATN(null)LENVAL"
2790 [152]4,[199](10)
2800 [129]M[178]1[164]N
2810 [139]D$(M)[177][178]SD$[167]SP[178]SP[170]1:[141]2860
2820 [139]SD$[178]"CHR$(13)"[167]SD$[178]"*****"
2830 [130]
2840 [152]4,[199](12):[160]4
2850 SD$[178]"*****":[142]
2860 [152]4,[199](16)"00";D$(M);[199](16)"10";I$(M);
2870 [139]D(M)[178]0[167]2890
2880 [152]4,[199](16)"45"D(M);
2890 [139]C(M)[178]0[167]2910
2900 [152]4,[199](16)"57";C(M);
2910 [152]4,[199](16)"69";B(M)
2920 [139]SP[178]56[167][152]4,[199](12):SP[178]0
2930 [142]
2940 B(M)[178]C(M)[170]D(M):B(M)[178]B(M)[170]B(M[171]1):B(M)[178][181](B(M)[173]0.01[170]0.05)[172]0.01:[142]
9999 [158]2048